home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / os2 / elep2f.zip / ELEPX437.ASM < prev    next >
Assembly Source File  |  1991-05-14  |  2KB  |  79 lines
  1.         PAGE    60,132
  2. ;***********************************************************************
  3. ;*                                                                     *
  4. ;* NAME:                                                               *
  5. ;*                                                                     *
  6. ;*    ELEPX437                                                         *
  7. ;*                                                                     *
  8. ;* FUNCTION:                                                           *
  9. ;*                                                                     *
  10. ;*    Creates ELEPX437.BIN for use with ELEP2.  This file contains     *
  11. ;*    a 3270 Generator code to ASCII translate table used when         *
  12. ;*    refreshing the LVB from the DCA buffer.                          *
  13. ;*                                                                     *
  14. ;***********************************************************************
  15. ; .286p pseudo operand enables 286 instructions
  16. .286p
  17. ;
  18.         extrn   DOSWRITE:far
  19.         extrn   DOSREAD:far
  20.         extrn   DOSOPEN:far
  21.         extrn   DOSCLOSE:far
  22.  
  23. code    segment byte public 'CODE'
  24. code    ends
  25. data    segment word public 'DATA'
  26. data    ends
  27. stack   segment word stack 'STACK'
  28. stack   ends
  29.  
  30. ;
  31. ; Set up data in a group prior to assume statement
  32. ;
  33. dgroup  group   data
  34.         assume  cs:code,ds:dgroup, es:dgroup, ss:stack
  35. ;
  36. ; Data Segment begins here:
  37. ;
  38. data    SEGMENT
  39.  
  40.  
  41. .XLIST
  42.         INCLUDE E:\TOOLKT12\masm\include\doscalls.inc
  43.         INCLUDE F:\ELEP2\INCLUDE\ELEPX437.INC
  44. .LIST
  45.  
  46. keybtbnm DB      'F:\ELEP2\KEYBTBS\ELEPX437.BIN',0
  47. kbhandle DW     ?
  48. kbaction DW     ?
  49. zero     DW     0,0
  50. bytesin  DW     ?
  51.  
  52.  
  53.          db      '(C) Copyright IBM Corporation 1991 '
  54.          db      'IBM INTERNAL USE ONLY'
  55. data    ENDS
  56. ;
  57. stack   SEGMENT
  58.         dw      512 dup (?)
  59. stack   ENDS
  60.  
  61.         page
  62. code    SEGMENT
  63. main    proc    near
  64.         MOV     DX,dgroup       ; Move start of data segment into dx
  65.         MOV     DS,DX           ; ... in order to set up ds
  66. ;
  67. ;       Open the ELEPX###.BIN for output
  68. ;
  69.         @DosOpen keybtbnm,kbhandle,kbaction,zero,0,12h,41H,zero
  70.  
  71.  
  72.         MOV     CX,256
  73.         @DosWrite kbhandle,xlattbl,CX,bytesin
  74.         @DosClose kbhandle
  75.         @DosExit 0,0
  76. main    ENDP
  77. code    ends
  78.         END    main
  79.